home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
User's Choice Windows CD
/
User's Choice Windows CD (CMS Software)(1993).iso
/
misc1
/
ami301c.zip
/
FLWCURVE.SM$
/
FLWCURVE.SMM
Wrap
INI File
|
1993-05-19
|
29KB
|
1,682 lines
[ver]
4
[sty]
_MACRO.STY
[files]
[charset]
82
ANSI (Windows, IBM CP 1252)
[revisions]
0
[prn]
Apple LaserWriter Plus
[port]
LPT1:
[lang]
1
[desc]
Curves text in Ami Pro using Freelance
737872261
40
731818190
1744
7
0
0
0
0
1
[fopts]
0
1
0
0
[lnopts]
2
Body Text
1
[docopts]
5
2
[GramStyle]
[ParaNum]
1
[tag]
Body Text
2
[fnt]
Times New Roman
200
0
16384
[algn]
1
1
216
0
0
[spc]
33
273
1
0
0
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
0
0
1
1
0
16
0
0
[nfmt]
272
1
3
.
,
$
Body Text
0
0
[tag]
Body Single
3
[fnt]
Times New Roman
240
0
49152
[algn]
1
1
0
0
0
[spc]
33
273
1
0
0
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
0
0
1
1
0
0
0
0
[nfmt]
280
1
2
.
,
$
Body Single
0
0
[tag]
Function
4
[fnt]
Times New Roman
240
0
16385
[algn]
1
1
0
0
0
[spc]
33
244
1
0
0
1
100
[brk]
68
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
1
0
1
1
0
0
0
0
[nfmt]
272
1
3
.
,
$
Body Text
0
0
[tag]
Outline2
5
[fnt]
Times New Roman
200
0
49152
[algn]
1
1
216
0
0
[spc]
33
273
1
0
0
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
2
0
1
1
0
16
0
0
[nfmt]
272
1
3
.
,
$
Outline2
0
0
[tag]
Outline3
6
[fnt]
Times New Roman
200
0
49152
[algn]
1
1
216
0
0
[spc]
33
273
1
0
0
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
3
0
1
1
0
16
0
0
[nfmt]
272
1
3
.
,
$
Outline3
0
0
[tag]
Outline4
7
[fnt]
Times New Roman
200
0
49152
[algn]
1
1
216
0
0
[spc]
33
273
1
0
0
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
4
0
1
1
0
16
0
0
[nfmt]
272
1
3
.
,
$
Outline4
0
0
[tag]
Outline5
8
[fnt]
Times New Roman
200
0
16384
[algn]
1
1
216
0
0
[spc]
33
273
1
0
0
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
5
0
1
1
0
16
0
0
[nfmt]
272
1
3
.
,
$
Outline5
0
0
[l1]
0
[edoc]
@Function@<:#284,9360>'declares & defines
@Outline2@<:#240,9360>'string defines, to be localized
@Outline3@<:#240,9360><:f200,2Times New Roman,255,0,0>define MyAppName "Ami Pro Curved Text<:f><:f200,2Times New Roman,255,0,0>."<:f>
@Outline3@<:#240,9360><:f200,2Times New Roman,255,0,0>define CurvedTextDlgText "Curved Text"
@Outline3@<:#240,9360><:f200,2Times New Roman,255,0,0>define CurvingStatusMsg "Now curving {curvelen} characters. This may take a moment."
@Outline3@<:#240,9360><:f200,2Times New Roman,255,0,0>define err_cantfindapp "Unable to find Freelance for Windows."
@Outline3@<:#240,9360><:f200,2Times New Roman,255,0,0>define err_cantlaunchapp "Unable to launch Freelance for Windows."
@Outline3@<:#240,9360><:f200,2Times New Roman,255,0,0>define err_notextshaded "You must first shade some text."
@Outline3@<:#240,9360><:f200,2Times New Roman,255,0,0>define FLW_WINDOWMENU "&Window"
@Outline3@<:#240,9360><:f200,2Times New Roman,255,0,0>define apptitle "Freelance Graphics"
@Outline2@<:#240,9360>'string defines, not localized
@Outline3@<:#240,9360>define appclass "flwapp"
@Outline3@<:#240,9360>define appmodule "FLWMAIN"
@Outline3@<:#240,9360>define appname "FLW"
@Outline3@<:#240,9360>define ERR_DIECLEANLY -2
@Outline3@<:#240,9360>define FILE_ALREADYOPEN 1
@Outline3@<:#240,9360>define FILE_NOTOPEN -1
@Outline3@<:#240,9360>define LotusAppSection "Lotus Applications"
@Outline3@<:#240,9360>define LotusIniFile "lotus.ini"
@Outline3@<:#240,9360>define orgfilename "ONEORG.PRE"
@Outline3@<:#240,9360>define pasteformat "Windows Metafile"
@Outline3@<:#240,9360>define salesmsgsmm lotuspal.smm!salesmsg
@Outline3@<:#240,9360>define helpfile "HELPPACK.HLP"
@Outline3@<:#240,9360>define helpnum 125
@Outline2@<:#240,9360>'private functions
@Outline3@<:#240,9360>declare box2(hdlg, id, val)
@Outline3@<:#240,9360>declare done()
@Outline3@<:#240,9360>declare onmenu(menu, item, casc)
@Outline3@<:#240,9360>declare freeglobals()
@Outline3@<:#240,9360>declare GetChildHandle(parentclass, childclass);
@Outline3@<:#240,9360>declare h_LoadLotusApp(Name, Module);
@Outline3@<:#240,9360>declare hideami(rect)
@Outline3@<:#240,9360>declare insertdata(hdlg, id, val)
@Outline3@<:#240,9360>define IsOKToRun(menuname) GetInfo(217, 24, %1);
@Outline3@<:#240,9360>define MsgBox(msgtext) Message(%1, myappname)
@Outline3@<:#240,9360>declare modframe()
@Outline3@<:#240,9360>declare newnow()
@Outline3@<:#240,9360>declare openfile()
@Outline3@<:#240,9360>declare setpagelayout()
@Outline3@<:#240,9360>declare showami(rect)
@Outline3@<:#240,9360>declare winproc(hdlg, id, val)
@Outline3@<:#240,9360>define WinHelp(hWnd, file, cmd, ptr) DllCall("user,WinHelp,HHCHJ", %1, %2, %3, %4)
@Outline3@<:#240,9360>define HELP_CONTEXT 0x0001
@Outline3@<:#240,9360>define VK_F1 112
@Outline2@<:#240,9360>'api call defines
@Outline3@<:#480,9360>declare MyPostMessage(hwnd, msg, wparam, lparam) 'DllCall("User,PostMessage,HHHHJ",%1,%2,%3,%4)
@Outline3@<:#240,9360>Define EnableWindow() DllCall("user,EnableWindow,HHH", %1, %2)
@Outline3@<:#240,9360>Define FindWindow() DllCall("user,FindWindow,HCC", %1, %2)
@Outline3@<:#240,9360>Define GetActiveWindow() DllCall("user,GetActiveWindow,H")
@Outline3@<:#240,9360>Define GetClassName(hwnd, name, len) dllcall("user,GetClassName,HHCH", %1, %2, %3)
@Outline3@<:#240,9360>Define Getfocus() DllCall("user,GetFocus,H")
@Outline3@<:#240,9360>define GetMenu(HWND) DllCall("user,GetMenu,HH", %1)
@Outline3@<:#240,9360>define GetMenuItemCount(HMENU) DllCall("user,GetMenuItemCount,HH", %1)
@Outline3@<:#240,9360>define GetMenuItemID(HMENU, int) DllCall("user,GetMenuItemID,LHH", %1, %2)
@Outline3@<:#480,9360>define GetMenuString(HMENU, WORD, LPSTR, int, WORD) DllCall("user,GetMenuString,HHHFHH", %1, %2, %3, %4, %5)
@Outline3@<:#240,9360>Define GetModuleHandle() DllCall("kernel,GetModuleHandle,HC", %1)
@Outline3@<:#240,9360>define GetParent(hWnd) DllCall("user,GetParent,HH", %1)
@Outline3@<:#240,9360>define GetSubMenu(HMENU, int) DllCall("user,GetSubMenu,HHH", %1, %2)
@Outline3@<:#240,9360>Define GetWindow(hwnd, cmd) dllcall("user,GetWindow,HHH", %1, %2)
@Outline3@<:#240,9360>DEFINE GetWindowrect() DllCall("user,GetWindowRect,HHN",%1,%2)
@Outline3@<:#240,9360>Define GetWindowText(hwnd, lpsz, cbMax) dllcall("user,GetWindowText,HHCH", %1, %2, %3)
@Outline3@<:#240,9360>define IsIconic(hWnd) DllCall("user,IsIconic,HH", %1)
@Outline3@<:#240,9360>define LoadCursor(hwnd, lpcursor) DllCall("user,LoadCursor,HHC",%1, %2)
@Outline3@<:#240,9360>Define MoveWindow() DllCall("User,MoveWindow,HHHHHHA",%1,%2,%3,%4,%5,%6)
@Outline3@<:#480,9360>define PeekMessage(lpmsg, hwnd, uFilterFirst, uFilterLast, fuRemove) DllCall("User,PostMessage,ACHHHH",%1,%2,%3,%4, %5)
@Outline3@<:#240,9360>Define PostMessage() DllCall("User,PostMessage,HHHHJ",%1,%2,%3,%4)
@Outline3@<:#240,9360>Define SendMessage(hwnd, message, wparam, lparao) Dllcall("user,SendMessage,JHHHJ", %1, %2, %3, %4)
@Outline3@<:#480,9360>Define SendMessageC(hwnd, message, wparam, lparao) Dllcall("user,SendMessage,HHHHC", %1, %2, %3, %4)
@Outline3@<:#240,9360>define SetCursor(hwnd) DllCall("user,SetCursor,HH",%1)
@Outline3@<:#240,9360>Define SetFocus() DllCall("user,SetFocus,HH",%1)
@Outline3@<:#480,9360>define SetWindowPos(hwnd, hwndinsertafter, x, y, cx, cy, wflags) DllCall("user,SetWindowPos,HHHHHHHI", %1, %2, %3, %4, %5, %6, %7)
@Outline3@<:#240,9360>Define ShowWindow(hWnd, stuff) DllCall("user,ShowWindow,HHH", %1, %2)
@Outline2@<:#240,9360>'menu pick defines
@Outline3@<:#240,9360>define FLW_COPY 142
@Outline3@<:#240,9360>define FLW_CURVEDTEXT 307
@Outline3@<:#240,9360>define FLW_CURRENTPAGE 228
@Outline3@<:#240,9360>define FLW_EDITCLEAR 145
@Outline3@<:#240,9360>define FLW_INBW 269
@Outline3@<:#240,9360>define FLW_INCOLOR 270
@Outline3@<:#240,9360>define FLW_NEW 61
@Outline3@<:#240,9360>define FLW_NEWPAGE 241
@Outline3@<:#240,9360>define FLW_ORGCHART 5202
@Outline3@<:#240,9360>define FLW_OUTLINER 230
@Outline3@<:#240,9360>define FLW_PAGESORTER 229
@Outline3@<:#240,9360>define FLW_PASTE 144
@Outline3@<:#240,9360>define FLW_REMOVEPAGE 242
@Outline3@<:#240,9360>define FLW_SCREENSHOWRUN 481
@Outline3@<:#240,9360>define FLW_SELECTNONE 166
@Outline3@<:#240,9360>define FLW_SELECTALL 165
@Outline3@<:#240,9360>define FLW_SPEAKERNOTES 253
@Outline2@<:#240,9360>'api defines
@Outline3@<:#240,9360>Define GW_CHILD 5
@Outline3@<:#240,9360>Define GW_HWNDNEXT 2
@Outline3@<:#240,9360>define MF_BYPOSITION 0x0400
@Outline3@<:#240,9360>define NO_DUPS 0
@Outline3@<:#240,9360>define PM_NOREMOVE 0x0000
@Outline3@<:#240,9360>define SWP_NOMOVE 0x0002
@Outline3@<:#240,9360>define WM_COMMAND 0x0111
@Outline3@<:#240,9360>define WM_GETTEXT 0x000D
@Outline3@<:#240,9360>define WM_MDIMAXIMIZE 0x0225
@Outline3@<:#240,9360>Define WM_SETREDRAW 0x000B
@Function@<:#284,9360>function FLWcurve()
@Outline2@<:#240,9360>if GetOpenFileCount() << 1
@Outline2@<:#240,9360> exit function
@Outline2@<:#240,9360>endif
@Outline2@<:#240,9360>TextToCurve=Curshade$()
@Outline2@<:#240,9360>rmac=GetRunningMacroFile$()
@Outline2@<:#240,9360>DlgKeyInterrupt(VK_F1, "{rmac}!helper")
@Outline2@<:#240,9360>filledit (8000, TextToCurve)
@Outline2@<:#240,9360>box=dialogbox(".", "curvetext")
@Outline2@<:#240,9360>if box = 0
@Outline2@<:#240,9360> exit function
@Outline2@<:#240,9360>endif
@Outline2@<:#240,9360>TextToCurve=GetDialogField$(8000)
@Outline2@<:#240,9360>ClipboardWrite(TextToCurve, 1)
@Outline2@<:#240,9360>'if TextToCurve = ""
@Outline2@<:#240,9360>' message(err_notextshaded, MyAppName)
@Outline2@<:#240,9360>' exit function
@Outline2@<:#240,9360>'endif
@Outline2@<:#240,9360>curvelen=len(TextToCurve)
@Outline2@<:#240,9360>onerror endit
@Outline2@<:#240,9360>oncancel endit
@Outline2@<:#240,9360>ignorekeyboard(2)
@Outline2@<:#240,9360>dim rect(4)
@Outline2@<:#240,9360>focusnow=GetFocus()
@Outline2@<:#240,9360>hFLW = h_LoadLotusApp(appname, appmodule);
@Outline2@<:#240,9360>'pause(002)
@Outline2@<:#240,9360>'singlestep(1)
@Outline2@<:#240,9360>if hFLW = 0
@Outline2@<:#240,9360> return 0
@Outline2@<:#240,9360>endif
@Outline2@<:#240,9360>rmac = getrunningmacrofile$()
@Outline2@<:#240,9360>'get handles to everything
@Outline3@<:#240,9360>hwndpro = findwindow("amiprownda", 0)
@Outline3@<:#240,9360>hIconBar = FindWindow("SmartIconBar", 0)
@Outline3@' PMM 5/19/93
@Outline3@' disable the iconbar
@Outline3@if isiconic(hFLW)
@Outline3@<:#240,9360> appmaximize(appname)
@Outline3@<:#240,9360>endif
@Outline3@<+@><:#240,9360>pause(002)
@Outline2@<:#240,9360>dim size(4)
@Outline2@<:#240,9360>getwindowrect(hFLW, &size)
@Outline2@<:#240,9360>movewindow(hFLW, 0, -1160, 768, 80, 1)
@Outline2@<:#240,9360>openfile()
@Outline2@<:#240,9360>EnableWindow(hwndpro, 0)
@Outline2@EnableWindow(hIconBar, 0)
@Outline2@activateapp(appname)
@Outline2@<:#240,9360>'AppRestore(appname)
@Outline2@<:#240,9360>'send the menu picks
@Outline3@<+@><:I0,0,0,0><:S+-1><:#240,9360>PostMessage(hFLW, WM_COMMAND, FLW_CURRENTPAGE, "")
@Outline3@<+@><:I0,0,0,0><:S+-1><:#240,9360>PostMessage(hFLW, WM_COMMAND, FLW_SELECTALL, "")
@Outline3@<+@><:I0,0,0,0><:S+-1><:#240,9360>PostMessage(hFLW, WM_COMMAND, FLW_EDITCLEAR, "")
@Outline3@<+@><:I0,0,0,0><:S+-1><:#240,9360>PostMessage(hFLW, WM_COMMAND, FLW_SELECTNONE, "")
@Outline3@<+@><:I0,0,0,0><:S+-1><:#240,9360>PostMessage(hFLW, WM_COMMAND, FLW_PASTE, "")
@Outline3@<:#240,9360>statusbarmsg(CurvingStatusMsg)
@Outline3@<+@><:#240,9360>PostMessage(hFLW, WM_COMMAND, FLW_INBW, "")
@Outline3@<+@><:I0,0,0,0><:S+-1><:#240,9360>PostMessage(hFLW, WM_COMMAND, FLW_CURVEDTEXT, "")
@Outline4@<:I0,0,0,0><:S+-1><:#240,9360>pause(005)
@Outline4@<:#240,9360>defstr titletext;
@Outline4@<:#240,9360>while GetActiveWindow() != hflw
@Outline4@<:#240,9360> hcancel=GetDlgItem(GetActiveWindow(), 2)
@Outline4@<:#240,9360> hpreview=GetDlgItem(GetActiveWindow(), 10)
@Outline4@<:#240,9360> GetWindowText(GetActiveWindow(), &titletext, 50)
@Outline4@<:#240,9360> if titletext = CurvedTextDlgText
@Outline4@<:#240,9360> EnableWindow(hcancel, 0)
@Outline4@<:I0,0,0,0><:S+-1><:#240,9360> EnableWindow(hpreview, 0)
@Outline4@<:#240,9360> endif
@Outline4@<:#240,9360> pause(002)
@Outline4@<:#240,9360>wend
@Outline3@<:#240,9360>pause(005)
@Outline3@<+@><:I0,0,0,0><:S+-1><:#240,9360>pause(005)
@Outline3@<+@><:I0,0,0,0><:S+-1><:#240,9360>PostMessage(hFLW, WM_COMMAND, FLW_COPY, "")
@Outline3@<+@><:I0,0,0,0><:S+-1><:#240,9360>PostMessage(hFLW, WM_COMMAND, FLW_INCOLOR, "")
@Outline3@<+@><:I0,0,0,0><:S+-1><:#240,9360>sendkeys("<[>esc]")
@Outline2@<:#240,9360>pause(008)
@Outline2@<:#240,9360>if curshade$()
@Outline2@<:#240,9360> type("<[>del]") 'get rid of selected text
@Outline2@<:#240,9360>endif
@Outline2@<:#240,9360>type("<[>esc]<[>esc]<[>esc]") 'if we're in something (like a frame) get us out.
@Outline2@<+@><:I0,0,0,0><:S+-1><:#240,9360>pastespecial(pasteformat)
@Outline2@<:#240,9360>FrameModInit( )
@Outline2@<:#240,9360>FrameModLines(0 1 1 0 16777215 0 0 0 0 0 )
@Outline2@<:#240,9360>FrameModType(536871040 0 "" )
@Outline2@<:#240,9360>FrameModFinish( )
@Outline2@<+@><:#240,9360>endit:
@Outline2@<+@><:#240,9360>activateapp("")
@Outline2@<:#240,9360>cx = size(3) - size(1)
@Outline2@<:#240,9360>cy = size(4) - size(2)
@Outline2@<:#240,9360>movewindow(hFLW, size(1), size(2), cx, cy, 1)
@Outline2@<+@><:I0,0,0,0><:S+-1><:#240,9360>EnableWindow(hwndpro, 1)
@Outline2@<+@><:I0,0,0,0><:S+-1>EnableWindow(hIconBar, 1) ' pmm 5/19/03 - enable the icon bar
@Outline2@<+@><:I0,0,0,0><:S+-1><:#240,9360>SetFocus(focusnow)
@Outline2@<:I0,0,0,0><:S+-1><:#240,9360>statusbarmsg("")
@Outline2@<+@><:I0,0,0,0><:S+-1><:#240,9360>end function
@Function@<:#284,9360>function h_LoadLotusApp(name, module)
@Outline2@<:#240,9360>onerror endit
@Outline2@<:#240,9360>oncancel endit
@Outline2@<:#240,9360>hwnd = findwindow(appclass, 0)
@Outline2@<:#240,9360>if hwnd = 0
@Outline2@<:#240,9360> app = GetProfileString$(LotusAppSection, name, LotusIniFile)
@Outline2@<:#240,9360> if app <<<;> ""
@Outline2@<:#240,9360> offset1stspace=strchr(1, app, " ")
@Outline2@<:#240,9360> app = strfield$(app, 1, " ")
@Outline2@<:#240,9360> lotusappname=MID$(app, offset1stspace, len(app)) 'DEZ
@Outline2@<:#240,9360> 'lotusappname = strfield$(app, 2, " ")
@Outline2@<:#240,9360> if exec(app, "/q") << 32
@Outline2@<:#240,9360> 'MsgBox(err_cantlaunchapp)
@Outline2@<:#240,9360> call salesmsgsmm(3)
@Outline2@<:#240,9360> return 0
@Outline2@<:#240,9360> endif
@Outline2@<:#240,9360> pause(004)
@Outline2@<:#240,9360> endif
@Outline2@<:#240,9360> hwnd = findwindow(appclass, 0)
@Outline2@<:#240,9360> if hwnd = 0
@Outline2@<:#240,9360> call salesmsgsmm(3)
@Outline2@<:#240,9360> endif
@Outline2@<:#240,9360> return hwnd
@Outline2@<:#240,9360>endif
@Outline2@<:#240,9360>endit:
@Outline2@<:#240,9360>return hwnd
@Outline2@<:#240,9360>end function
@Function@<:#284,9360>function openfile()
@Outline2@<:#240,9360>'set variables
@Outline3@<:#240,9360>hflw=findwindow(appclass, 0)
@Outline3@<:#240,9360>isitopen=onmenu(FLW_WINDOWMENU, orgfilename, 0)
@Outline3@<:#240,9360>amidir=GetAmiDirectory$()
@Outline3@<:#240,9360>dde_openit = strcat$("<[><[>StdOpenDocument(", amidir, orgfilename, ")]")
@Outline3@<:#240,9360>dde_maxit = strcat$("<[><[>Maximize(", amidir, orgfilename, ")]")
@Outline2@<:#240,9360>ID = DDEInitiate(appname, "system")
@Outline2@<:#240,9360>if isitopen = FILE_ALREADYOPEN
@Outline2@<:#240,9360> goto maxit
@Outline2@<:#240,9360>endif
@Outline2@<:#240,9360>res = DDEExecute(id, dde_openit) ' comm
@Outline2@<:#240,9360>maxit:
@Outline2@<:#240,9360>pause(003)
@Outline2@<:#240,9360>res = DDEExecute(id, dde_maxit) ' comm
@Outline2@<:#240,9360>if id <;> 0
@Outline2@<:#240,9360> DDETerminate(id)
@Outline2@<:#240,9360>endif
@Outline2@<:#240,9360>'childfocus=GetFocus()
@Outline2@<:#240,9360>'mdiclient=GetParent(childfocus)
@Outline2@<:#240,9360>'AppSendMessage(mdiclient, WM_MDIMAXIMIZE, childfocus, "")
@Outline2@<:#240,9360>end function
@Function@<:#284,9360>function MyPostMessage(hwnd, msg, wparam, lparam)
@Outline2@<:#240,9360>hflw=findwindow(appclass, 0)
@Outline2@<:#240,9360>PostMessage(hwnd, msg, wparam, lparam)
@Outline2@<:#240,9360>pause(005)
@Outline2@<:#240,9360>while GetActiveWindow() != hflw
@Outline2@<:#240,9360> pause(002)
@Outline2@<:#240,9360>wend
@Outline2@<:#240,9360>end function
@Function@<:#284,9360>function onmenu(menu, item, casc)
@Outline2@<:#240,9360>isthistheone=0
@Outline2@<:#240,9360>defstr menuitemnum;
@Outline2@<:#240,9360>defstr cascmenuitemnum;
@Outline2@<:#240,9360>hwnd=findwindow(appclass, 0)
@Outline2@<:#240,9360>hmenubar=GetMenu(hwnd)
@Outline2@<:#240,9360>'get handle to menu
@Outline3@<:#240,9360>nummenus=getmenuitemcount(hmenubar)
@Outline3@<:#240,9360>if nummenus << 1
@Outline3@<:#240,9360> message ("Cannot locate the menu bar.")
@Outline3@<:#240,9360> goto out
@Outline3@<:#240,9360>endif
@Outline3@<:#240,9360>for i = 0 to nummenus - 1
@Outline3@<:#240,9360> GetMenuString(hmenubar, i, &isthistheone, 25, MF_BYPOSITION)
@Outline3@<:#240,9360> menulen=len(menu)
@Outline3@<:#240,9360> if ucase$(left$(isthistheone, menulen)) = ucase$(left$(menu, menulen))
@Outline3@<:#240,9360> menunum=i
@Outline3@<:#240,9360> endif
@Outline3@<:#240,9360>next
@Outline3@<:#240,9360>hmenu=getsubmenu(hmenubar, menunum)
@Outline2@<:#240,9360>'get position or handle of item
@Outline3@<:#240,9360>'get position of item
@Outline4@<:#240,9360> extra = 0
@Outline4@<:#240,9360> menuitemnum = 0
@Outline4@<:#240,9360> cascmenuitemnum = 0
@Outline4@<:#240,9360> nummenuitems=getmenuitemcount(hmenu)
@Outline4@<:#240,9360> if nummenuitems << 1
@Outline4@<:#240,9360> message ("Cannot locate the correct menu.")
@Outline4@<:#240,9360> goto out
@Outline4@<:#240,9360> endif
@Outline4@<:#240,9360> for i= 0 to (nummenuitems - 1)
@Outline4@<:#240,9360> GetMenuString(hmenu, i, &isthistheone, 25, MF_BYPOSITION)
@Outline4@<:#240,9360> itemlen=len(item)
@Outline4@<:#240,9360> length=len(isthistheone)
@Outline4@<:#240,9360> if length << 1 and menuitemnum = 0
@Outline4@<:#240,9360> extra=extra + 1
@Outline4@<:#240,9360> endif
@Outline4@<:#240,9360> text=ucase$(isthistheone)
@Outline4@<:#240,9360> pattern=ucase$(item)
@Outline4@<:#240,9360> 'if ucase$(left$(item, itemlen)) = ucase$(left$(isthistheone, itemlen))
@Outline4@<:#240,9360> if Instr(1, Text, Pattern) != 0
@Outline4@<:#240,9360> return FILE_ALREADYOPEN
@Outline4@<:#240,9360> menuitemnum=i
@Outline4@<:#240,9360> break
@Outline4@<:#240,9360> endif
@Outline4@<:#240,9360> next
@Outline4@<:#240,9360> 'couldn't find it
@Outline4@<:#240,9360> return FILE_NOTOPEN
@Outline4@<:#240,9360> menuitemnum=menuitemnum - extra
@Outline3@<:#240,9360>'get handle to casc menu
@Outline4@<:#240,9360>numcascmenus=getmenuitemcount(hmenu)
@Outline4@<:#240,9360>if numcascmenus << 1
@Outline4@<:#240,9360> goto out
@Outline4@<:#240,9360>endif
@Outline4@<:#240,9360>for i = 0 to numcascmenus - 1
@Outline4@<:#240,9360> GetMenuString(hmenu, i, &isthistheone, 25, MF_BYPOSITION)
@Outline4@<:#240,9360> cascmenulen=len(item)
@Outline4@<:#240,9360> if ucase$(left$(isthistheone, cascmenulen)) = ucase$(left$(item, cascmenulen))
@Outline4@<:#240,9360> cascmenunum=i
@Outline4@<:#240,9360> endif
@Outline4@<:#240,9360>next
@Outline4@<:#240,9360>hcascmenu=getsubmenu(hmenu, cascmenunum)
@Outline3@<:#240,9360>'get position of casc item
@Outline4@<:#240,9360> extra = 0
@Outline4@<:#240,9360> numcascmenuitems=getmenuitemcount(hcascmenu)
@Outline4@<:#240,9360> if numcascmenuitems << 1
@Outline4@<:#240,9360> goto out
@Outline4@<:#240,9360> endif
@Outline4@<:#240,9360> for i= 0 to (numcascmenuitems - 1)
@Outline4@<:#240,9360> GetMenuString(hcascmenu, i, &isthistheone, 25, MF_BYPOSITION)
@Outline4@<:#240,9360> cascitemlen=len(casc)
@Outline4@<:#240,9360> length=len(isthistheone)
@Outline4@<:#240,9360> if length << 1 and cascmenuitemnum = 0
@Outline4@<:#240,9360> extra=extra + 1
@Outline4@<:#240,9360> endif
@Outline4@<:#240,9360> if ucase$(left$(casc, cascitemlen)) = ucase$(left$(isthistheone, cascitemlen))
@Outline4@<:#240,9360> cascmenuitemnum=i
@Outline4@<:#240,9360> break
@Outline4@<:#240,9360> endif
@Outline4@<:#240,9360> next
@Outline4@<:#240,9360> cascmenuitemnum=cascmenuitemnum - extra
@Outline2@<:#240,9360>'return numbers
@Outline3@<:#240,9360>out:
@Outline3@<:#240,9360>getdist=strcat$(menuitemnum, ", ", cascmenuitemnum, ",", casc)
@Outline3@<:#240,9360>hourglass(0)
@Outline2@<:#240,9360>end function<:>
@Function@<:#284,9360>function helper()
@Outline2@<:#240,9360>prohWnd = FindWindow("AmiProWndA", 0)
@Outline2@<:#240,9360>fullhelpfile = strcat$(GetAmiDirectory$(), helpfile)
@Outline2@<:#240,9360>WinHelp (prohWnd, fullhelpfile, HELP_CONTEXT, helpnum)
@Outline2@<:#240,9360>end function
@Function@<:#284,9360>DIALOG curvetext
@Outline2@<:#240,9360>-2134376448 4 52 64 190 44 "" "AmiDialog" "Curved Text"
@Outline2@<:#240,9360>FONT 8 "Helv"
@Outline2@<:#240,9360>6 20 126 12 8000 1350631552 "edit" "" 0
@Outline2@<:#240,9360>144 4 40 14 1 1342373889 "button" "OK" 0
@Outline2@<:#240,9360>144 22 40 14 2 1342373888 "button" "Cancel" 0
@Outline2@<:#240,9360>6 6 114 10 1000 1342177280 "static" "Type the text you wish to curve." 0
@Outline2@<:#240,9360>END DIALOG
>
[Embedded]
00023027
>
[macsum] 7
FLWcurve 0 0 16 101
h_LoadLotusApp 2266 2 5 195
openfile 2814 0 8 222
MyPostMessage 3238 4 2 244
onmenu 3468 3 24 252
helper 5723 0 3 338
curvetext 5890 0 -1 343
[macse]
14 FLWcurve
0 1050
13
5 1
18 5
11 00000061
6 0
15
9
0 24
13
8 1
0 802
13
8 2
0 47 112 "{2}!helper"
0 31 8000 "{1}"
0 26 "." "curvetext"
13
8 3
6 3
5 0
18 0
11 00000204
6 0
15
9
0 27 8000
13
8 1
0 1038 "{1}" 1
0 14 "{1}"
13
8 4
20 00001968
19 00001968
0 32 2
5 4
21 5 [X]
0 284 "user,GetFocus,H"
13
8 6
16 h_LoadLotusApp "FLW" "FLWMAIN"
13
8 7
6 7
5 0
18 0
11 00000429
5 0
15
9
0 802
13
8 2
0 284 "user,FindWindow,HCC" "amiprownda" 0
13
8 8
0 284 "user,FindWindow,HCC" "SmartIconBar" 0
13
8 9
0 284 "user,IsIconic,HH" "{7}"
13
11 00000616
0 1029 "FLW"
0 274 002
5 4
21 10 [X]
0 284 "user,GetWindowRect,HHN" "{7}" &10
0 284 "User,MoveWindow,HHHHHHA" "{7}" 0 -1160 768 80 1
16 openfile
0 284 "user,EnableWindow,HHH" "{8}" 0
0 284 "user,EnableWindow,HHH" "{9}" 0
0 38 "FLW"
0 284 "User,PostMessage,HHHHJ" "{7}" 273 228 ""
0 284 "User,PostMessage,HHHHJ" "{7}" 273 165 ""
0 284 "User,PostMessage,HHHHJ" "{7}" 273 145 ""
0 284 "User,PostMessage,HHHHJ" "{7}" 273 166 ""
0 284 "User,PostMessage,HHHHJ" "{7}" 273 144 ""
0 789 "Now curving {4} characters. This may take a moment."
0 284 "User,PostMessage,HHHHJ" "{7}" 273 269 ""
0 284 "User,PostMessage,HHHHJ" "{7}" 273 307 ""
0 274 005
0 284 "user,GetActiveWindow,H"
13
6 7
18 1
11 00001663
0 284 "user,GetActiveWindow,H"
13
0 44 [X] 2
13
8 12
0 284 "user,GetActiveWindow,H"
13
0 44 [X] 10
13
8 13
0 284 "user,GetActiveWindow,H"
13
0 284 "user,GetWindowText,HHCH" [X] &11 50
6 11
7 "Curved Text"
18 0
11 00001639
0 284 "user,EnableWindow,HHH" "{12}" 0
0 284 "user,EnableWindow,HHH" "{13}" 0
0 274 002
10 00001260
0 274 005
0 274 005
0 284 "User,PostMessage,HHHHJ" "{7}" 273 142 ""
0 284 "User,PostMessage,HHHHJ" "{7}" 273 270 ""
0 36 "[27]"
0 274 008
0 24
13
11 00001842
0 6 "[46]"
0 6 "[27][27][27]"
2 588 1 "Windows Metafile"
2 421 1
2 416 1 0 1 1 0 16777215 0 0 0 0 0
2 417 1 536871040 0 ""
2 420 1
0 38 ""
5 3
22 10
5 1
22 10
3 1
8 14
5 4
22 10
5 2
22 10
3 1
8 15
5 1
22 10
5 2
22 10
0 284 "User,MoveWindow,HHHHHHA" "{7}" [X] [X] "{14}" "{15}" 1
0 284 "user,EnableWindow,HHH" "{8}" 1
0 284 "user,EnableWindow,HHH" "{9}" 1
0 284 "user,SetFocus,HH" "{6}"
0 789 ""
6 0
15
9
14 h_LoadLotusApp
20 00000524
19 00000524
0 284 "user,FindWindow,HCC" "flwapp" 0
13
8 3
6 3
5 0
18 0
11 00000524
0 286 "Lotus Applications" "{0}" "lotus.ini"
13
8 4
6 4
7 ""
18 1
11 00000406
0 13 1 "{4}" " "
13
8 5
0 20 "{4}" 1 " "
13
8 4
0 14 "{4}"
13
0 15 "{4}" "{5}" [X]
13
8 6
0 22 "{4}" "/q"
13
5 32
18 5
11 00000395
16 lotuspal.smm!salesmsg 3
5 0
15
9
0 274 004
0 284 "user,FindWindow,HCC" "flwapp" 0
13
8 3
6 3
5 0
18 0
11 00000512
16 lotuspal.smm!salesmsg 3
6 3
15
9
6 3
15
9
6 2
15
9
14 openfile
0 284 "user,FindWindow,HCC" "flwapp" 0
13
8 1
16 onmenu "&Window" "ONEORG.PRE" 0
13
8 2
0 798
13
8 3
0 16 "[[StdOpenDocument(" "{3}" "ONEORG.PRE" ")]"
13
8 4
0 16 "[[Maximize(" "{3}" "ONEORG.PRE" ")]"
13
8 5
0 8 "FLW" "system"
13
8 6
6 2
5 1
18 0
11 00000307
10 00000334
0 11 "{6}" "{4}"
13
8 7
0 274 003
0 11 "{6}" "{5}"
13
8 7
6 6
5 0
18 3
11 00000412
0 9 "{6}"
6 0
15
9
14 MyPostMessage
0 284 "user,FindWindow,HCC" "flwapp" 0
13
8 5
0 284 "User,PostMessage,HHHHJ" "{0}" "{1}" "{2}" "{3}"
0 274 005
0 284 "user,GetActiveWindow,H"
13
6 5
18 1
11 00000218
0 274 002
10 00000134
6 4
15
9
14 onmenu
5 0
8 4
0 284 "user,FindWindow,HCC" "flwapp" 0
13
8 7
0 284 "user,GetMenu,HH" "{7}"
13
8 8
0 284 "user,GetMenuItemCount,HH" "{8}"
13
8 9
6 9
5 1
18 5
11 00000236
0 3 "Cannot locate the menu bar."
10 00002191
5 0
8 10
6 9
5 1
3 1
6 10
18 2
12 00000335
10 00000536
5 1
6 10
3 0
8 10
10 00000247
0 284 "user,GetMenuString,HHHFHH" "{8}" "{10}" &4 25 1024
0 14 "{0}"
13
8 11
0 806 "{4}" "{11}"
13
0 18 [X]
13
0 806 "{0}" "{11}"
13
0 18 [X]
13
18 0
11 00000523
6 10
8 12
10 00000300
0 284 "user,GetSubMenu,HHH" "{8}" "{12}"
13
8 13
5 0
8 14
5 0
8 5
5 0
8 6
0 284 "user,GetMenuItemCount,HH" "{13}"
13
8 15
6 15
5 1
18 5
11 00000752
0 3 "Cannot locate the correct menu."
10 00002191
5 0
8 10
6 15
5 1
3 1
6 10
18 2
12 00000852
10 00001173
5 1
6 10
3 0
8 10
10 00000763
0 284 "user,GetMenuString,HHHFHH" "{13}" "{10}" &4 25 1024
0 14 "{1}"
13
8 16
0 14 "{4}"
13
8 17
6 17
5 1
18 5
6 5
5 0
18 0
1 1
11 00001029
6 14
5 1
3 0
8 14
0 18 "{4}"
13
8 18
0 18 "{1}"
13
8 19
0 808 1 "{18}" "{19}"
13
5 0
18 1
11 00001160
5 1
15
9
6 10
8 5
10 00001173
10 00000817
5 -1
15
9
6 5
6 14
3 1
8 5
0 284 "user,GetMenuItemCount,HH" "{13}"
13
8 20
6 20
5 1
18 5
11 00001301
10 00002191
5 0
8 10
6 20
5 1
3 1
6 10
18 2
12 00001401
10 00001603
5 1
6 10
3 0
8 10
10 00001312
0 284 "user,GetMenuString,HHHFHH" "{13}" "{10}" &4 25 1024
0 14 "{1}"
13
8 21
0 806 "{4}" "{21}"
13
0 18 [X]
13
0 806 "{1}" "{21}"
13
0 18 [X]
13
18 0
11 00001590
6 10
8 22
10 00001366
0 284 "user,GetSubMenu,HHH" "{13}" "{22}"
13
8 23
5 0
8 14
0 284 "user,GetMenuItemCount,HH" "{23}"
13
8 24
6 24
5 1
18 5
11 00001761
10 00002191
5 0
8 10
6 24
5 1
3 1
6 10
18 2
12 00001861
10 00002170
5 1
6 10
3 0
8 10
10 00001772
0 284 "user,GetMenuString,HHHFHH" "{23}" "{10}" &4 25 1024
0 14 "{2}"
13
8 25
0 14 "{4}"
13
8 17
6 17
5 1
18 5
6 6
5 0
18 0
1 1
11 00002038
6 14
5 1
3 0
8 14
0 806 "{2}" "{25}"
13
0 18 [X]
13
0 806 "{4}" "{25}"
13
0 18 [X]
13
18 0
11 00002157
6 10
8 6
10 00002170
10 00001826
6 6
6 14
3 1
8 6
0 16 "{5}" ", " "{6}" "," "{2}"
13
8 26
0 296 0
6 3
15
9
14 helper
0 284 "user,FindWindow,HCC" "AmiProWndA" 0
13
8 1
0 798
13
0 16 [X] "HELPPACK.HLP"
13
8 2
0 284 "user,WinHelp,HHCHJ" "{1}" "{2}" 1 125
6 0
15
9
DIALOG curvetext
-2134376448 4 52 64 190 44 "" "AmiDialog" "Curved Text"
FONT 8 "Helv"
6 20 126 12 8000 1350631552 "edit" "" 0
144 4 40 14 1 1342373889 "button" "OK" 0
144 22 40 14 2 1342373888 "button" "Cancel" 0
6 6 114 10 1000 1342177280 "static" "Type the text you wish to curve." 0
00023052